home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 16 / fpc225_3.zip / F-PCHELP.ZIP / SEQREAD.HLP < prev    next >
Text File  |  1988-07-27  |  4KB  |  120 lines
  1. \ SEQREAD.HLP   Sequential read and load file           by Tom Zimmer
  2.  
  3.  
  4. IBLEN           input buffer length constant
  5. OBLEN           output buffer length constant
  6. INLEN           input text length variable
  7. INBSEG          the input buffer segment constant
  8. OUTBUF          the line output buffer array
  9.  
  10. MAXNEST         byte size of 5 hcb's
  11.  
  12. HNDLS           an array of handles, holds 5 handles in a stack.
  13. LOADFILE        File for source of this word.
  14. LOADOFF         line offset of error
  15. FILEPOINTER     most recent read
  16. LOADING         Are we in the proccess of loading a file?
  17.  
  18. LOADSTAT        load status display defered word.
  19.  
  20. SHNDL+          ( --- A1 )
  21.         Returns address a1, the address of the next available handle.
  22.  
  23. .FILE           ( --- )
  24.         display the filename of the current file handle.
  25.  
  26. GET_ALINE       ( --- )
  27.         get a line of text from the current file, and place it in the
  28.         output buffer.
  29.  
  30. FILEPOINTER+    ( --- )
  31.         Increment the current file pointer by the length of the line
  32.         in outbuf.
  33.  
  34. CURPOINTER      ( handle --- double-current )
  35.         Return the double-current offset into file handle.
  36.  
  37. SAVEPOINTER     ( --- )
  38.         Save the file offset into the current file for later restoral.
  39.  
  40. ?FILLBUFF       ( --- )
  41.         Re-fill the input buffer if it needs it.
  42.  
  43.  
  44. <LINEREAD>      ( --- a1 )
  45.         Read a line from the current file, returning the address a1,
  46.         the address of the next line.
  47.  
  48. LINEREAD        ( --- a1 )
  49.         A defered word that returns a line from the current file.
  50.  
  51. (?SERROR)       ( ADDR N1 BOOL --- )
  52.         If bool is true, then print message addr1,n1 and show the
  53.         line in the current file where the error occured.
  54.  
  55. SEQUP           ( --- )
  56.         Step up one handle in the handle stack.
  57.  
  58. SEQINIT         ( --- )
  59.         Initialize the handle stack, in preparation for use.
  60.  
  61. SEQDOWN         ( --- )
  62.         Step down one handle in the handle stack. closes the current
  63.         file, and selects the next lower file.
  64.  
  65. CLOSE           ( --- )
  66.         A pseudonym for SEQDOWN. See also SEQDOWN.
  67.  
  68. $HOPEN          ( A1 --- F1 )
  69.         Open the file specified by the counted string a1. Return
  70.         boolean f1 false if the open was succesful.
  71.  
  72. SEEK            ( d1 --- )
  73.         Seek (move pointer) to position d1 in the current file.
  74.  
  75. LVR             ( --- n1 )
  76.         List value, if this value is on, then lines of the
  77.         current load file will be displayed while being loaded.
  78.  
  79. SHOWLINES       ( --- )
  80.         Turn on listing of lines while loading.
  81.  
  82. HIDELINES       ( --- )
  83.         Turn off listing of lines while loading.
  84.  
  85. : FILLTIB       ( --- )
  86.         Set the terminal input buffer to point to a line just
  87.         read from the current file.
  88.  
  89. <LOAD>          ( --- )
  90.         Load the current file starting at the current file offset.
  91.  
  92. LOADER          ( --- )
  93.         A defered word that loads the current file.
  94.  
  95. >LINE           ( n1 --- )
  96.         Step to line n1 in the current file.
  97.  
  98. LOADED,         ( --- )
  99.         Compile the name of the current file as a variable in the
  100.         FILES vocabulary. Also links the variable into a list of
  101.         variables that represent the files that have been loaded.
  102.  
  103. <FLOAD>         ( --- )
  104.         Primitive word that loads the file just opened.
  105.  
  106. FLOAD           ( | name --- )
  107.         load the file "name". this is nestable.
  108.  
  109. CHARREAD        ( --- c1 )
  110.         Read a character c1 from the current file.
  111.  
  112. OK              ( --- )
  113.         Load all of the current file.
  114.  
  115.  
  116. \S              ( n1 --- )
  117.         Stop loading the current file with the line that contains
  118.         this word.
  119.  
  120.